APRENDE A PROGRAMAR 


ANIMACION 


EN 
AS 
A 
A 


EN 
AS 
A 
A 


Diseño: Cooper West 
Edición: Nigel Cawthorne 
Programas: Marcus Milton 
David Rosam 
Programas MSX Angel García García 
Ilustraciones: Gerard Brown 


Traducción: Angel García García 


El traductor desea expresar su agradecimiento a 
Gustavo Flores Maza por su colaboración en este libro 


Queda prohibida la reproducción total o parcial de la presente obra bajo 
cualquiera de sus formas, gráfica o audiovisual, sin la autorización previa y 
escrita del editor, excepto citas en revistas, diarios o libros, siempre que se 
mencione la procedencia de las mismas. 


Título original: COMPUTER ANIMATION 

O 1985, Aladdin Books Ltd. 

O 1986, de la edición española, E. G. Anaya. 
Villafranca, 22. 28028 Madrid. 

1.S.B.N.: 84-7525-361-X. 

Depósito legal: M. 20984-1986 

Impreso por: Edime, S. A. Calle D, esquina a F. 
Polígono Industrial Arroyomolinos. Móstoles (Madrid) 
Impreso en España - Printed in Spain. 


APRENDE A PROGRAMAR 


ANIMACION 


LA CASA ENCANTADA 


Marcus Milton 


ANAYA 


Nase! 


Introducción 


Los gráficos por ordenador encierran muchas más sorpresas de 
las que te puedes imaginar. En lugar de limitarte a jugar o ilustrar 
tus juegos puedes incluso escribir una historia, y construir tu 
propio programa lleno de color y gráficos tanto estáticos como 
animados. El programa se da para el sistema MSX y para el 
Spectrum y cuenta la historia de la Casa Encantada. 

El programa ha sido dividido en bloques lógicos, y un texto 
paralelo explica cómo funciona cada sección. Escribir un 
programa en bloques lógicos no sólo lo hace más sencillo de 
entender tanto para ti como para otras personas; también reduce 
las posibilidades de error del mismo. Al finalizar determinadas 
secciones puedes probar lo que acabas de teclear; ten en cuenta 
que incluso el error más pequeño puede hacer que el programa 
no funcione. Si algo falla repasa los listados cuidadosamente. 
Asegúrate de que tu programa coincide con el del libro. Los 
siniestros acontecimientos que tienen lugar en la Casa Encantada 
emplean técnicas muy útiles de programación de gráficos. Por 
ejemplo, con un cuidadoso diseño de determinados caracteres 
definidos por el usuario en el Spectrum es fácil conseguir, 


mediante un programa en BASIC, un movimiento muy suave de 
las figuras. 


AA 


Contenido 


Gráficos MSX 


Gráficos Spectrum 


El escenario 
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SPECTRUM 


EN I=LEN 
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EL BASIC del MSX permite animar figuras de una manera muy 
simple mediante el uso de sprites. Estos son caracteres cuya 
forma podemos definir y mover por la pantalla. Podemos definir 
cuatro tipos de sprites: 8x8, 8x8 aumentado, 16x16 y 16x16 
aumentado, según el número de pixels (puntos de la pantalla) y el 
tamaño de éstos. 


Veamos sobre un ejemplo cómo definir un sprite y cómo moverlo 
por la pantalla. 


SCREEN 2,2 
FOR I=1 TO 32:READ N: A$=A$+CHR$ (N) : NEXT 

SPRITES (1)=4$ 

FOR J=24@ TO 1 STEP -1:PUT SPRITE 1, (J,1): 

FOR I=1 TO 50:NEXT: NEXT 

GOTO 46 

DATA 0,0,0,112,120,60,30,127,255,255,127,1,0,0,0,0, 
0,2,9,4, 14, 30, 62, 254, 255, 255, 254, 254, 240, 120, 60,28 
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La linea 10 selecciona el modo de pantalla 2 —modo gräfico de 
192x256 pixels— y los sprites de tipo 16x16. En las lineas 20 y 30 
definimos el sprite leyendo los 32 datos necesarios (pues para el 
sprite de 16x16 necesitamos 32 bytes) y asignando una cadena de 
caracteres a la variable SPRITE $. El argumento de esta variable 
(1 en este caso) selecciona el plano de definiciön de ese sprite. 
Para entenderlo imaginemos la pantalla del monitor o televisor 
compuesta por una serie de capas (PLANOS). Las imagenes en 
los planos más cercanos al observador —planos inferiores— 
parecen pasar por delante de las de los que se encuentran en 
planos posteriores. La línea 40 se encarga de mover el sprite por 
la pantalla; para ello indicaremos, en este orden, de qué sprite se 
trata, sus coordenadas y el color en que queremos que se 
imprima. 


Después de los planos de sprites se encuentra el “plano 
multicolor”. En él es donde aparecen las imágenes creadas por 
manejo de textos y los comandos gráficos usuales PRINT, 
DRAW, LINE... No obstante podemos modificar las imágenes 
que aparecen en este plano para crear figuras más sofisticadas 
como los árboles que veremos en la Casa Encantada. 


Para ello hay que acceder directamente a la memoria de vídeo del 
ordenador. El proceso es relativamente complejo y aquí sólo 
pretendemos dar una idea general del mismo. Toda imagen en la 
pantalla viene definida por las posiciones de memoria de la VRAM 


6000 


(memoria de video). En el modo 2 (gráfico) ésta se divide en cinco 
bloques: tabla de patrones, que nos da la definición de cada 
carácter en la pantalla de forma análoga a la de los sprites; tabla 
de nombres, que nos indica para cada posición de pantalla dónde 
se encuentra en la tabla de patrones la definición de dicha 
posición; tabla de colores, que nos da el color de fondo y de 
primer término de cada byte —8 pixels horizontales— de la tabla 
de patrones; tabla de patrones de sprites, sobre la que 
podemos actuar directamente para definir los sprites y, por fin, la 
tabla de atributos de sprites, que nos da la posición, color y 
número de patrón de cada sprite. 


Veamos el proceso que hay que seguir para crear una imagen en 
el plano de fondo. En primer lugar definiremos en la tabla de 
patrones la figura que pretendemos obtener de una forma análoga 
a la de definición de sprites. A continuación indicaremos en la 
tabla de nombres para las posiciones de carácter que 
pretendemos que tengan esa forma que el patrón se encuentra a 
partir de un lugar determinado de la tabla de patrones. Por último, 
si queremos, podemos modificar el color de cada carácter 
actuando sobre la tabla de colores. 


Aunque el proceso pueda parecer bastante complejo, si lo 
manejamos con cuidado podemos llegar a obtener resultados 
sorprendentes. No obstante conviene acudir a un libro 
especializado para profundizar debidamente en el tema. 


LA BASE DE LA DEFINICIÓN 
DEL SPRITE DE 16x16 

SON CUATRO CUADRADOS 
DE 64 PIXELS 


AA E OA 
Gráficos Spectrum 


La forma usual de animar un cáracter desde el BASIC en el 
Spectrum es imprimir la figura, borrarla y volverla a imprimir en 
una posición contigua. Generalmente el efecto de movimiento no 
es muy bueno, pues la figura parece moverse a saltos. Y lo que es 
peor, las figuras no pueden moverse uno o dos pixels cada vez 
(deben localizarse en filas y columnas). No obstante, si 
imprimimos tres o cuatro formas apropiadas en el espacio de dos 
caracteres podemos crear la ilusión de que la figura se está 
moviendo sólo unos pocos pixels cada vez. Podemos conseguir un 
movimiento suave, libre de saltos, repitiendo este proceso sobre 
posiciones sucesivas de la pantalla. 


Prueba este programa. 


FOR A=65368 TO 65439 ¿READ D: POKE A,D: NEXT A 
20 DATA 24,12,134,255,255,134,12,24: REM (A) 

30 DATA 0,0,0,240,240,0,0,0: REM (B) 

40 DATA 6,3,33,63,63,33,3,6:1 REM (C) 

50 DATA 0,0,128,252,252,128,0,0:REM (D) 

68 DATA 1,0,8,15,15,8,0,1: REM (E) 

70 DATA 128,192, 96, 255, 255, 96, 192, 128:REM (F) 

86 DATA 0,0,2,3,3,2,0,0: REM (6) 

90 DATA 95,48,24,255,255,24,48,96: REM (H) 

100 DATA 0,6,0,192,192,0,0,0:REM (I) 
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FOR F=6 TO 28 
FRINT AT 2,P3” AB": PAUSE 3 
PRINT AT 2:F5" Cb": PAUSE = 


PRINT AT 2,P5" EF": PAUSE 3 
PRINT AT 2,F3" GHI”; PAUSE - 
NEXT P 


Las líneas 110 a 160 mueven el avión suavemente por la pantalla. 
El secreto es que en realidad hay cuatro gráficos que parecen 
iguales, excepto porque están situados en posiciones diferentes. 
Cada gráfico se construye con dos o tres caracteres definidos por 
el usuario (líneas 120 a 150). La figura que se imprime en la línea 
130 está localizada dos pixels a la derecha de la figura impresa en 
la línea 120; la figura de la línea 140 está situada dos pixels a la 
derecha de la de la línea 130, y así sucesivamente. El lazo entre 
las líneas 110 y 160 mueve el avión por la pantalla. El conjunto de 
caracteres definidos por el usuario que se imprimen en las líneas 
120 a 150 es como una minisecuencia animada (al imprimir 
rápidamente la secuencia de gráficos de avión conseguiremos que 
éste parezca moverse incluso dentro de un sólo carácter). El lazo 
se limita a presentar en pantalla esta minisecuencia animada en 
cada carácter de la línea. El carácter que imprimimos justo antes 
de cada grupo de caracteres borra la última parte de la cola del 
avión, que de no ser así quedaría atrás según se mueve éste por 
la pantalla. 


EL MOVIMIENTO DEL AVIÓN 

SE CONSIGUE ¡MPRIMIENDO 
LA SERIE DE GRÁFICOS DE LA 
DERECHA. TODAS LAS FIGURAS 
SON IGUALES PERO ; 
COLOCADAS EN UMA POSICION 
DIFERENTE 


In 


El escenario 


Antes de comenzar con el programa tenemos que elaborar el 
argumento o guión de nuestra historia. El programa da vida a una 
casa encantada y comienza por dibujar la imagen de una casa 
antigua rodeada de un bosque fantasmagórico. Cae la noche... un 
rayo atronador despierta a los murciélagos del campanario y una 
vieja bruja sobrevuela la casa en su escoba. Mientras vuela en la 
noche caen más rayos y relámpagos, que alcanzan la casa y 
provocan el fuego en una de las torres. Las llamas se extienden y 
la casa entera se derrumba. Como dramática conclusión de la 
historia una tétrica calavera se alza sobre sus ruinas. La secuencia 
dura unos minutos. Conviene dibujarse un guión como el de abajo 
en un papel, de forma que puedas dividir el argumento en escenas 
y sucesos separados. 


LA CASA SE DERRUMBA 


LA CASA ARDIENDO 


APARECE LA CALAVERA 


EL PROGRAMA 
DE CONTROL 
Y LA INICIALIZACION 


Una vez que hayas planeado la historia puedes escribir el programa 
de control. Este te permite estructurar tu programa, dividiendo 
cada sección en una serie de bloques más pequeños y manejables. 
Esto lo conseguirás mediante el empleo de subrutinas. La primera 
sección te muestra cómo escribir el programa de control y preparar 
el ordenador para el comienzo de la animación. 
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La estructura del programa de control se ajusta al argumento. La 
mayoria de las subrutinas se utilizan una sola vez, como las 
empleadas para dibujar el castillo y los ärboles. Las ünicas 
subrutinas que se repiten son las llamadas en las líneas 100 y 110. 
Con ellas conseguimos mover el murciélago y la bruja por la 


pantalla. 


0000000 


REM Casa Encantada 


CLEAR 200, 61482! 


SCREEN 


GOSUB 
GOSUE 
GOSUB 
GOSUB 
GÜSUR 


2, 2sC0L.0R 1,3, 120.8 


656@:REM Inicializar 
2009: REM Fondo 
2500: REM Castillo 


24500: REM Arboles 


3009: REM Oscuridad 


N=4:GOSUB 1500: REM Rayo 


M=1300 


FOR XB=8 TO 254 STEP 2 


GOSUR 
GOSUB 


300: REM Murcielago 
10900: REM Bruja 


IF XB=254 THEN FUT SPRITE Z, (6,209) 
NEXT XB 
N=4:GOSUB 15060:REM Rayo 


GOSUB 
SOSUE 
END 


3S506:REM Fuego 
56600: REM Calavera 


El programa de control se limita a llamar consecutivamente a una 
serie de subrutinas para conseguir el dibujo en la pantalla. En la 
línea 70, antes de llamar a la subrutina Rayo establecemos el 


valor de N que será empleado por ésta para determinar el número 


de relámpagos. Asimismo la línea 80 actúa sobre la variable M 
necesaria en la subrutina Murciélago. Es conveniente trabajar de 
esta forma con las subrutinas, pues así se hacen mucho más 


flexibles. 


6000 


& 


REM Inicializar 


FOR I= 


61483! TO 61508! 


READ N$:FOKE 1, VAL ("&H"+N$) : NEXT 
DEFUSR=41433! 


VFOKE 


FOR I= 


VFOKE 
FOR I= 
VFOKE 
FOR I= 
VPOKE 
RETURN 


FOR I=BASE (12) TO BASE(12) +15: READ 


(144096) ,N: NEXT 

BASE (12) TO BASE(12)+15: READ 
(144352), N2 NEXT 

BASE (12) TO BASE(12)+15: READ 
(144408) „N: NEXT 


BASE (14)+32 TO BASE (14)+191:READ N: 


I,N:NEXT 


88086 
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7600 


7010 


792 


7939 


7040 


7050 


7966 


7370 


798% 


645000000000 


La subrutina Inicializar comienza en la línea 6500. Las líneas 6510 
y 6520 se encargan de leer los datos necesarios para configurar un 
programa en código máquina que emplearemos para cambiar 
instantáneamente los colores de la pantalla. La línea 6530 fija la 
dirección a donde queremos llamar al comando USR. Las líneas 
6540 a 6560 establecen la definición del árbol accediendo a la tabla 
de patrones y actuando sobre la misma. La línea 6570 modifica las 
posiciones correspondientes a la tabla de patrones de sprites 
generando así los correspondientes al murciélago (dos), la bruja, la 
luna y la llama. 


Antes de continuar adelante graba el programa en cinta o disco, 
ya que un error en esta etapa puede bloquear por completo el 


ordenador. 


e. 


DATA DB,79,21,00,20,0E,99,ED,69,ED,61,21,00,00,7E, 
14,D3,98,23,7C,FE, 18,C2,39,F0,C9:REM Cod. maquina 

DATA 16,129,73,40,16,80,48,9,128,32,74,134,164,63, 
204,30,5,:38,178,27,31,15,3,3,48,96,192,192,194,244 
„192,128,1,1,133,3,7,51,91,192,192, 192, 128,128, 128 
‚224,252:REM Arbol 

DATA 0,0,0,16,56,125,235,63,15,3,2,0,0,0,0,0,0,0,0 
» 8, 28, 196, 255, 252,249,192,54,0,0,0,0,9:REM Murc. 1 

DATA 0,0,0,0,0,13,31,673,63,67,26,24,8,0,0,0,0,0,0, 
0,0,176, 248, 252, 252, 252, 88, 24, 16,9,9,9:REM Murc.2 

DATA 75.15.0505 O05 1, 55.1995 207, 2005 195, 129; 1,950; 0; 12 

3 192,96, 96, 224, 192, 192, 224, 240, 255, 192, 128, 128, 192 
‚®,9:REM Bruja 

DATA 3,14, 28,56, 122, 120, 254, 255, 255, 248, 248, 946,192 
395, 31, 3,0,6,0, 0, 128, 0,9, 128, 128,0, ð, 4, 12, 152, 248, 
246:REM Luna 

DATA Oy 32,352,354, 50,51, 5! 5 127,125,256, 229, 199,53, 3 

3753 7,9,9,17,17, 49,115, 227, 167,167, 191, 186, 164, 200, 
298, 224,224:REM Llama 

DATA 521,535, 546, 547,556, 562, 565, 579, 580, 592, 600, 

614,637,646, 657, 661, 667, 686,691, 696, 790: 

REM Posicion arboles 

DATA 177,48, 169,64, 149,84, 91,84, 71,64, 63,48: 

REM Fosicion llamas 


one 5 
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La estructura del programa de control se ajusta al guiön. La 
mayoría de las subrutinas se emplean una sola vez, como la usada 
para dibujar el castillo y los árboles. Las únicas subrutinas que se 
repiten son llamadas en las líneas 100 y 110 dentro del bucle 
FOR... NEXT constituido por las líneas 90 a 130. Estas 
subrutinas mueven el murciélago y la bruja unos pocos pixels 
cada vez que son ejecutadas. 


REM e RR RRA 

REM casa encantada 

REM 18 bytes de codigo maquina alma 
linea 5 

GO SUB 8566: REM inicializar 


GO SUB 20666: REM fondo 

SO SUB 25906: REM castillo 

60 SUB 4500: REM arboles 

GO SUB 5200: REM oscuridad 

LET n=5: GO SUB 1506: FEM rayo 


LET m=13600 

FOR b=6 TO 29 

GO SUE 506: REM murcielago 

GO SUB 1060: REM bruja 

IF b=29 THEN FRINT AT 1,293" REM zsp,esp,esp 
NEXT b 

LET n=5: GO SUB 1506: REM rayo 

GO SUB 5506: REM fuego 

GO SUB 4966: REM calavera 

STOF 


60000000 


Como puedes observar en la línea 70 establecemos el valor de la 
variable n antes de entrar en la subrutina que dibuja el rayo. El 
valor de n nos dará el número de rayos a dibujar en esa subrutina 
(ver página 35). Es una buena técnica de programación escribir de 
esta forma las subrutinas que vamos a emplear bastante en el 
programa, ya que serán mucho más flexibles y versátiles. La línea 
80 establece el valor de la variable m a su valor inicial antes de ser 
empleada en el bucle que mueve el murciélago y la bruja. Se ha 
preferido establecer su valor aquí en lugar de en la subrutina de 
inicialización para distinguir a qué parte del programa pertenece. 
La línea 120 se limita a imprimir tres espacios; éstos se emplean 
para borrar la bruja cuando esta alcanza la última posición de su 
trayectoria. 


REM inicializar 
FOR a=65368 TG 65527: READ d: POKE a,d: NEXT a 
REM introducir codigo maquina en la sentencia 


REM de la linea 5 
FOR i=23768 TO 27777: READ d: FOKE i,d: NEXT i 
RETURN 
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7000 DATA 16,129,73,46,16,80,48,9: REM arbol (A) 
7010 DATA 128,32,74,134,164,68,204,306: REM arbol (B) 
7020 DATA 5,38,178,27,31,15,3,3: REM arbol (0) 

7036 DATA 48,96,192,192,194,244,152,128: REM arbol (D) 
7040 DATA 1,1,1,3,3,7,31,51: REM arbol (E) 

7056 DATA 192,192,192,128,128,128,224,252: REM arbol (F) 
7060 DATA 8,16,48,32,96,96, 233,224: REM luna (6) 

7070 DATA 240,254,127,113,48,54,31,6: REM luna (H) 
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La línea 6500 es el comienzo de la subrutina de inicialización. La 
linea 6510 lee los datos dados en las lineas 7000 a 7190 y los situa 
en las direcciones especiales reservadas para caracteres definidos 
por el usuario. Las letras entre paréntesis que hay deträs de cada 
linea de datos te indican en qué letra en modo gräfico se ha 
guardado cada caräcter. La linea 6530 lee los datos de las lineas 
7510 y 7520 y los emplea para crear una pequefia rutina en cödigo 
maquina. Este programa nos permite cambiar instantäneamente 
determinados colores de la pantalla cuando se necesita cambiar la 
escena de dia a noche. Una vez que hayas tecleado hasta la linea 
7540 comprueba con mucho cuidado lo que acabas de escribir, ya 
que cualquier error en esta etapa puede bloquear el ordenador al 
intentar rodar el programa. Lo único que puedes hacer si esto 
ocurre es desconectarlo y comenzar de nuevo. De ahí que sea 
conveniente guardar el programa en cinta al finalizar esta etapa, LOS ARBOLES SE DIBUJAN A BASE 
de modo que simplemente debas cargarlo de nuevo en lugar de DE CARACTERES DEFINIDOS 
volverlo a teclear si algo ha fallado. POR EL USUARIS 


7030 DATA 1,2,6,230,19,255,17,226: REM bruja (I) 
7090 DATA 0,6,0,128,240,128,0,06: REM bruja (J) 
7106 DATA 2,0,1,57,4,31,4,56: REM bruja (K? 

7118 DATA 64,129,128,150,252,224,64,128: REM bruja (L) 
7120 DATA 04,0,0,14,1,7,1,14: REM bruja (M) 

7130 DATA 16,32,76, 164, 63,248,16,32: REM bruja {N} 
7146 DATA 0,0,0,3,0,1,0,3: REM bruja (0) 

7150 DATA 4,8,24,154,79,254,68,136: REM bruja (F) 
7169 DATA 9,0,0,0,192,0,0,0: REM bruja (0) 

7170 DATA 9,0,0,66,36,24,24,0: REM murcielago (R) 
7186 DATA 0,0,0,0,0,235,24,6: REM murcielago (5) 
7190 DATA 8,128,65,2,150,68,20,40: REM llamas (T) 
7300 REM datos codigo maquina 

7510 DATA 62,06,33,0,88,6,24,197,6,32 

3209 DATA 119,35,16,252,193,16,245,201 

7330 REM datos posicion ventanas 

7340 DATA 10,22,8,23,14,19,14,12,10,9,8,8 


Ó00000O 
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Algunos de los caracteres del programa son creados empleando 
varias figuras; así, los árboles están constituidos por seis 
sentencias DATA que definen seis caracteres definidos por el 
usuario, como se muestra en la página anterior. La bruja, sin 
embargo, consta de nueve caracteres en total, ya que es animada 
empleando la misma técnica que la del avión en la página 10. 


Puedes animar la forma que quieras empleando un programa 
similar y dibujando el gráfico en un diagrama como el que se 
muestra a continuación, imprimiendo las figuras en diferentes 
posiciones. 


TITLES LA BRUJA ES ANIMADA IMPRIMIENDO 
AAA EXACTAMENTE LA MISMA FIGURA 
-一 一 一 EN CUATRO POSICIONES 
LIGERAMENTE DIFERENTES, 
EMPLEANDO MUEVE CARACTERES 
DEFINIDOS POR EL USUARIO 


d 


3 AAA! >> 


d y 
MO GITA 


Esta secciön del programa establece el escenario de fondo de dia, la 
casa y el bosque fantasmagórico. También explica las subrutinas del 
programa de control incluida la sección que dibuja los árboles. 
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PLANTEA LOS 

GRÁFICOS CON 

MUCHO CUIDADO 

ANTES DE COMENZAR 
L 


Esta subrutina dibuja el cielo y el primer plano, asi como el 
camino que conduce a la puerta del castillo. La linea 10 del 
programa principal había establecido el color de fondo a verde y 
había borrado la pantalla. El bucle entre las líneas 2010 a 2030 
dibuja 100 puntos negros situados en coordenadas aleatorias y 
simulan las piedras sobre el suelo. El cielo lo dibujaremos a base 
del carácter gráfico “MW” (no empleamos el comando PAINT pues 
puede dar problemas al cambiar los colores con el programa en 
código máquina). Es necesario emplear el comando OPEN 
“GRP:” para imprimir dicho carácter, ya que estamos trabajando 
en modo 2 —modo gráfico—. Las líneas 2050 a 2070 son dos 
bucles anidados que se encargan de dibujar el cielo, comenzando 
desde la esquina superior izquierda y terminando en el límite 
impuesto a las piedras del suelo. Las líneas 2080 a 2110 dibujan el 
camino. Este se consigue trazando una serie de líneas horizontales 
cada vez más anchas que comienzan en puntos dados por una 
función seno. 


© 


2000 REM Fondo 

2016 FOR R=1 TO 106 

2626 X=INT (RND(1)x255>: Y=130+INT (RND(1) #66) 
290320 ESET EX. Y) Ls MEXT 

2046 OFEN "GRF:" AS $1: COLOR 5 

2056 FOR Y= TO 120 STEF 8: FOR X= TO 248 STEF 8 
2060 FRESET (X,Y):FRINTH1,"E" 

2676 NEXT X:NEXT Y 

2030 I=15 

2090 FOR F=62 TO @ STEP -2 

21060 X=138x*SIN(P/66): Y=i92-F:LINE (X Y)-(X+I,Y),1 
2119 I=1+1.5:NEXT 

2120 RETURN 
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2506 REM Castillo 
316 x1=80:Y1=72: X2=1456: Y2=120:LAD=300: 
GOSUE 33930: REM Bloque frontal 
2326 X1=64: Y1=49:X2=89: Y2=Ba: LAD=72: 
GOSUB 3669: REM Torre izquierda 
2336 X1=168:Y1=40: X2=184: Y2=80:LAD=70: 
GOSUB 3889: REM Torre derecha 


© 
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2566 FOR Y=60 TO 72 
2578 LINE (89,Y)-(167,Y),6 
NEXT 


© 
y 
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El castillo lo dibujamos mediante la subrutina que comienza en la 
linea 2500. Consta de tres volümenes principales que se consiguen 
mediante la subrutina Bloque que explicaremos posteriormente. 
Antes de entrar en la misma es necesario establecer los 
parämetros que le servirän para determinar los limites de cada 
bloque. Las lineas 2510 a 2530 definen la posiciön de cada 
volumen asi como el valor de la variable LAD (que emplearemos 
para simular el enladrillado) y llaman a dicha subrutina. A 
continuación las líneas 2540'y 2550 actúan de forma parecida 
sobre la subrutina Segmento encargada de dibujar los tejados de 
las dos torres laterales; establecen el valor del vértice de cada una 
y llaman a la subrutina. 

El bucle FOR... NEST entre las líneas 2560 y 2580 dibuja el 
tejado principal mediante unas líneas horizontales entre las dos 
torres. Para dibujar las seis ventanas emplearemos también otra 
subrutina —que comienza en la línea 4000— y que, como las 
anteriores, necesita de dos parámetros que indiquen la posición 
de cada ventana. Por fin la línea 2660 dibuja la puerta a base de 
líneas negras de anchura creciente hasta que alcanzan un máximo 
y lo mantienen. 


2600 X=68: Y=47: G0SUB 40009 

2610 X=74:Y=62:GOSUB 4006 

2628 X=182: Y=47:GOSUB 4039 

2630 X=174:Y=63:GOSUB 4000 

2640 X=96:Y=83:GOSUB 4000 

2650 X=154: Y=83: GOSUB 4090 

2660 FOR Y=104 TO 127: 1F Y<ii2 THEN 
LINE (232-Y,Y)-(24+Y,Y),1: NEXT 
ELSE LINE (120,Y)-(136,Y), 1: NEXT 

2676 RETURN 


30600 
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2546 XS=76:YS=8:GOQSUB 3500: REM Tejado izquierdo 
290% X5=18%: Y5=8: GOSUB 35006:REM Tejado derecho 


LA SUBRUTINA 


BLOQUE NECESITA | 


CIERTOS PARÁMETROS 


PARA DIBUJAR CADA 
RECTÁNGULO 


000 


O © 
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5 REM Bloque 

® FOR Y=Y1 TO Y2 STEF 8:FOR X=X1 TO x2 STEP 3 
30706 COLOR F:FRESET (X,Y):FRINT #1, "B" 

3036 NEXT X:NEXT Y 

3046 FOR Y=Y1 TO Y2+7 STEF 2 

LINE (X1,Y)-(X2+7,Y>,1 

NEXT Y 

2076 COLOR 1:FOR M=1 TO LAD 

A=INT (RND(1)x (X2-X1+7)+X1)2 

B=INT (RND(1)x*(Y2-Y1+7)+Y1):FSET (A,B),1 
3090 NEXT M E 

RETURN 
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La subrutina Bloque es la encargada de dibujar el frente del 
castillo y las dos torres. El efecto de enladrillado se consigue en 
tres etapas. En primer lugar se dibuja un fondo rojo. Para ello es 
necesario conocer los limites del rectängulo a dibujar; éstos vienen 
dados por X1, X2, Y1 e Y2 y son actualizados antes de entrar en 
la subrutina. Los bucles anidados entre las lineas 3010 y 3030 se 
encargan de dibujar el rectängulo base. La segunda etapa consiste 
en dibujar una serie de lineas negras horizontales sobre el 
rectängulo —lineas 3040 a 3060—; hasta ahora lo que tenemos es 


un rectängulo rayado en rojo y negro. Para terminar el efecto de AL ¡MPRIMIR PUNTOS 
enladrillado dibujaremos una serie de puntos negros sobre el NEGROS ALEATORIOS 
bloque —líneas 3070 a 3090—. Las coordenadas de estos puntos soBRE El ria 
no deben rebasar los límites del muro. Los puntos negros sólo se RAYAS CONSES 


4 es FECTO 
verán cuando estén sobre rayas rojas. As ENLADRILLADO 
La subrutina Segmento —línea 3500— dibuja una serie de radios 
de circunferencia de centro XS, YS —parámetros asignados 
antes de entrar en la subrutina— y simula el tejado de las torres 
laterales. Por fin las ventanas son dibujadas mediante la subrutina 
que comienza en la línea 4000 por un procedimiento análogo al de 
la puerta. 


REM Segmento 

R=38 

FOR T=14648@ TO 200 STEF 2 
A=Tx*3.14/180: X=R*¥SIN(A) : Y=RXCOS (A) 
LINE (XS, YSI (XS+X; YS= VO 6 


NEXT 
RETURN 


© 
© © 


4000 REM Ventana 
4610 I=5 

4920 FOR J=Y TO Y+17:1F J<Y+S THEN 

LINE CX#I7/2, 3) (6112.00) 13 11-12 NEXT 

ELSE TINE (Xd) (X46, INS LEINEXT 


RETURN 
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4598 REM Arboles 

4510 DIM A(Z21) 

4529 FOR J=1 TO 21: READ N:A(J)=N:2NEXT 

4536 FOR J=i TO 21 

4540 I=BASE (19) +Atid3 

Sue VPOKE (I) ,@8VFEOKE (+1), 19 VPOKE (Ir327,32: 
VFOKE (1+33),33:VPOKE (1+64),64: VPOKE (1+65),65 

4566 NEXT J 

4570 R=13a06:GOSUB 300 

526 RETURN 


86080808 
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Sólo queda añadir los árboles para completar la escena. Esto lo 
lleva a cabo la subrutina que comienza en la línea 4500. El 
proceso ya se ha indicado en la introducción. En primer lugar hay 
que definir la forma de los árboles accediendo a la tabla de 
patrones (ésto ya lo hicimos en la subrutina de inicialización, 
líneas 6540 a 6560). A continuación hay que indicar en la tabla de 
nombres, en cada posición de pantalla que queremos que 
contenga parte del árbol, dónde se encuentra la información que 
define dicha porción. Una vez hecho esto aparecerá el árbol en 
pantalla. 


En primer lugar la línea 4510 DIMensiona la matriz que va a 
contener las posiciones de pantalla correspondientes a la esquina 
superior izquierda de cada árbol. El bucle 4520 asigna a esta 
matriz los valores correspondientes. A continuación el lazo 
constituido por las líneas 4530 a 4560 se encarga de alterar las 
posiciones oportunas de la tabla de nombres para indicar dónde 
se encuentra la definición de cada porción de árbol. La línea 4570 
introduce un retardo que lleva a cabo la subrutina que comienza 
en la línea 300 —un simple bucle FOR... NEXT que cuenta de 
laR. 


Con esta subrutina has completado la parte del programa 
encargada de dibujar el escenario de la acción. 
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Debes tener mucho cuidado al proyectar cualquier clase de 
gráficos en el Spectrum, ya que éste no te permite usar mas que 
un color para el fondo y otro para la tinta en cada carácter. La 
subrutina Fondo, que comienza en la línea 2000 borra la pantalla 
y la pasa a color verde (PAPER 4). Un bucle FOR...NEXT elige 
100 coordenadas aleatorias en la mitad inferior de la pantalla y 
dibuja un punto negro en cada una. Estos puntos simulan rocas, y 
ayudan a romper la monotonía del suelo. El cielo se dibuja 
cambiando el color a cyan (PAPER 5) y usando dos bucles 
FOR... NEXT anidados para imprimir una serie de espacios 
coloreados en la mitad superior de la pantalla. La línea 2080 pasa 
la tinta a color negro para dibujar la línea del horizonte que 
separará tierra y cielo. A continuación se fija el valor de la variable 
i a cuatro antes de entrar en otro bucle que se encarga de dibujar 
el camino. Este lo conseguiremos trazando una serie de líneas 
horizontales cada vez más anchas que comienzan en puntos 
dados por una función seno. La anchura creciente se consigue 
incrementando el valor de la variable i que nos da el número de 
pixels que debe contener cada línea horizontal. La subrutina 
finaliza en la línea 2130. 


REM fondo 

PAPER 4: INK 6: 

FOR r=i TO 160 

LET x=INT (RND*255): 
NEXT ra FAFER 5 

FOR y=@ TO 12: FOR x=2 TO 31 

PRINT AT y,x3" “a REM espacio 
NEXT x: NEXT y 

INE © 

FLET 6,72: DRAW 255,0: LET 
FOR p=39 TO © STEF -2 
PLOT 139*5IN (p/I9),n: 
NEXT p 

RETURN 
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EL CAMINO SE 


{RND*89) : 


A FUNCION 


PLOT Lay 


LET iSite 
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25006 REM castillo 

2510 LET x1=1@: LET x2=21: LET yi=1@: LET y2=16: 
LET lad=4006: GG SUB 3600: FEM bloque frontal 

2320 LET x1=8: LET x2=16: LET yi=4: LET y2=11: 


© 


© LET lad=106: GO SUB 3606: REM bloque torre izda. 
2330 LET.x1=21: LET.x2=231 LET yl=4s LET y2=11: 
LET lad=100: GO SUB 20602 REM bloque torre dcha. 


5 
E 
G 
LET ys=159: 
R 
E 
R 


1 
nf 
1 
3 
50 SUB 35 
2 
5 


2540 LET xs=75: 
82: REM segmento tejado torre izda. 
2556 LET xs=179: LET ys=159: 
GO SUB 3588: REM segmento tejado torre dcha. 


FOR r=88 TO 163 
2578 PLOT 88,r: DRAW 79,9 
2580 NEXT r 


© © © 


La subrutina castillo, que comienza en la linea 2500, se encarga 
de dibujar el edificio. No obstante es la subrutina bloque —línea 
3000— la que consigue dibujar el enladrillado del frente y las dos 
torres laterales. Las variables x1, x2, yl, e y2 establecen la 
posición del bloque que debe ser rellenado de ladrillos, y se 
estudiarán con detalle en la página siguiente al describir la 
subrutina bloque. Las líneas 2540 y 2550 establecen los vértices 


© 


© © 


00 


de los tejados de las torres antes de llamar a la subrutina 3500 
que se encarga de dibujarlos. Un bucle FOR.... NEXT entre las 
líneas 2560 y 2580 dibuja el tejado principal mediante una serie de 
líneas horizontales entre las dos torres. La línea 2590 imprime una 
serie de cuadrados para representar las almenas de la parte 
frontal. El símbolo 8 entre las comillas indica que debes poner el 
ordenador en MODO GRAFICO (pulsa CAPS SHIFT y 9) y 
pulsar la tecla 8. A continuación se dibujan seis ventanas mediante 
la subrutina 4000. Como antes las líneas 2600 a 2650 definen la 
posición de cada ventana antes de entrar en la subrutina que se 
encarga de dibujarlas. Por último la línea 2660 emplea el carácter 
gráfico 8 para imprimir una puerta. Esta consta de cuatro 
caracteres de este tipo. 


2579 FOR b=12 TO 26 STEP 2: 

FRINT AT 11,53"3”5 NEXT bD? REM (€) 
LET x=68: LET y=i@2: GO SUE 4066 
¿2616 LET x=76: LET y=88: GO SUB 46060 
2620 LET x=182: LET y=102: GQ SUB 4000 
LET x=174: LET y=88: GO SUB 4600 
2640 LET x=96: LET y=56: 60 SUB 4606 
2650 LET x=157: LET y=56: GD SUB 4006 
FRINT AT 15,153"38"34T 158,155"88": 
REM 18), 1875 68), (8) 

RETURN 
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3000 REM bloque 
2010 FOR y=y2 TO yi STEP -1: FOR x=x1 TO 


3030 NEXT x: NEXT y 


3059 FOR y=y2 TO y1 STEP -2 


06 


7076 NEXT y 
2080 FOR m=1 TO lad 
3096 LET a=INT (RND& (x2-x1+7)+x1DD: 


© © 


A Ka 
pe p 


NEXT m 
RETURN 


Qe 


La subrutina bloque se emplea para dibujar el frente de la casa y 
las dos torres laterales. Veamos cómo conseguir el efecto de un 
muro de ladrillos. En primer lugar se dibuja una serie de espacios 
en rojo (PAPER 2) entre los límites dados por las coordenadas 
mediante los bucles FOR... NEXT en las líneas 3010 a 3030. De 
esta forma conseguimos la base del muro. Sobre ésta se dibuja 
una serie de líneas negras horizontales comenzando en pixels 
alternados a lo largo del eje y mediante el bucle entre las líneas 
3050 y 3070. Hasta ahora lo que tenemos es un rectángulo rayado 
en rojo y negro. Para transformarlo en un muro enladrillado 
dibujaremos una serie de puntos negros situados al azar en dicho 
rectángulo. La variable lad contiene el número de puntos a 
distribuir. PLOT a,b, se encarga de dibujar dichos puntos en la 
posición x,y. Estas coordenadas se calculan de modo que se 
encuentren siempre dentro de los límites del muro. Los puntos 
negros sólo se verán cuando se dibujen sobre líneas rojas. De esta 
forma se completa el efecto de enladrillado. La subrutina 
segmento 一 que comienza en la línea 3500— se limita a dibujar 
un sector de círculo de radio 39 pixels y de centro las 
coordenadas xs, ys para conseguir los tejados de las dos torres 
laterales. Las ventanas se dibujan en la subrutina que comienza en 
la línea 4000 mediante un lazo que traza una serie de pequeñas 
líneas negras horizontales. 


en U a aM 


7300 REM segmento 
3310 LET r=39: INK 3 
3528 FOR t=156 TO 200 


3546 PLOT xs,ys: DRAW x,y 
255@ NEXT t 

3566 RETURN 

409 REM ventana 


5011 NEXT w 
4020 RETURN 


0600060 


Re 


3020 FAPER 2: PRINT AT y,x3" ": REM espacio 
3040 LET x1=x1%8: LET x2=x2#8: LET yi=y1*8: LET y2=y2x*8 


3050 INK 0: PLOT x1,168-y: DRAW (x2-x1)+7,0 


LET b=168-INT (RND*(y2-y1)+y1): PLOT a,b 


2036 LET a=t*PI/186: LET x=r*SIN (a): LET Y=r*COS (a) 


4018 INE 0: FOR w=y TO y+i@: FLOT »,w: DRAW Sia 
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SE) 


MURO 
E NCADRILLADO se I 
CONSIGUE DISTRIBUYEND 
PUNTOS NEGROS ALEATORIOS 
SOBRE LOS TRES 
RECTANGULOS EN ROJO 
| Y NEGRO QUE CONSTITUYEN 


LA CASA 


300060 
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4520 REM arboles 


O 


45206 FOR t=1 TO 36 
4536 LET x=INT (RND*29): 


© © 


4566 NEXT t 
4576 OVER O: FAUSE 200 
4586 RETURN 


O 


4510 FAFER 4: INK @: OVER 1 


LET y=13+INT (RNDx7> 


1540 IF (x>8 AND x<22 AND y<17) 
4550 FRINT AT y,x3"AB"3AT y+1,x3"CD"SAT y+2,x3 "EF": 
REM (A), (B)3 (C); (D)5 (E), (F) 


THEN GO TO 4536 


Sölo queda afiadir el bosque siniestro para completar la escena de 
dia. La subrutina de la linea 4500 dibuja 30 ärboles en posiciones 
aleatorias sobre la hierba. Cada árbol tiene un color verde de 
fondo (PAPER 4); de ahí que sea necesario asegurarse de que no 
se va a imprimir en el cielo —línea 4530— ni sobre la casa 

—línea 4540. 


Cada árbol se compone de seis caracteres, agrupados de dos en 
dos, en tres bloques (línea 4550). La instrucción OVER 1 en la 
línea 4510 tiene el efecto de hacer un carácter transparente, de 
modo que al imprimirlo sobre otro se vean ambos. Cuando parte 
de un árbol se imprime sobre otro es posible ver a través del que 
está en primer plano. Una vez que se han dibujado todos los 
árboles, la instrucción OVER 0 en la línea 4570 recobra la 


impresión normal. 


Tras una pequeña pausa la subrutina finaliza con una instrucción 


RETURN y se devuelve el control al programa principal. Una vez 
que hayas añadido esta subrutina al programa habrás completado 


todas las rutinas que dibujan la escena. 
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Prueba tu programa 


Antes de continuar introduciendo la siguiente parte del programa 
conviene guardarlo en cinta (“salvarlo”). Encontrarás las 
instrucciones oportunas en el manual del usuario. Puedes, no 
obstante, probar lo que llevas hecho hasta ahora siguiendo las 
instrucciones de abajo. Si no has cometido ningún fallo al 
introducir el programa verás aparecer el fondo, el castillo y los 
árboles. Si hay algún error repasa tus listados y compáralos con 
los del libro. 


MSX : TECLEA 55 

GOTO 55 Y PRUEBA EL 
PROGRAMA. 

PULSA CTRL-STOP UNA 
VEZ HAYAS COMPROBADO 
QUE EL PROGRAMA 
FUNCIONA CORRECTAMENTE. 
BORRA LA LINEA 55 ANTES 
DE CONTINUAR CON LA 
SIGUIENTE SECCION 


SPECTRUM: TECLEA 55 
GOTO 55, Y PRUEBA EL 
PROGRAMA. PULSA LAS 
TECLAS CAPS SHIET Y 
BREAK UNA VEZ HAYAS 
COMPROBADO QUE EL 
PROGRAMA FUNCIONA 
CORRECTAMENTE. 

.| BORRA LA LINEA 55 ANTES 
DE CONTINUAR CON LA 
SIGUIENTE SECCION 
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EL VALOR DEW 
DETERMINA EL 
NÚMERO DE RAYOS 
QUE SE CONSIGUEN 
CADA VEZ QUE SE 


A estas alturas conviene dibujar sobre el papel todos los efectos 
que vayas a introducir. Conoces las dimensiones de la casa, de 
forma que puedes distribuir todas las secuencias animadas a su 
alrededor. Plantéalo todo sobre el papel,.asi podrás estudiar si 
alguno de los caracteres colisiona con otro, o si se desplaza a 
algún lugar que no deba. Ten cuidado de no borrar los gráficos 
que ya has dibujado imprimiendo encima de ellos. 


5050 REM Oscuridad 

5610 FRINT USRIG)> 

39920 FUT SFRITE 4, (15,8,160 
5907306 R=1606: GOSUB Too 

S646 RETURN 


Para pasar de día a noche debes cambiar alguno de los colores de 
la pantalla. El BASIC del MSX no lo permite con un comando 
directo, de ahí que haya sido necesario introducir un programa en 
código máquina —mucho más rápido— que lo realice. El 
funcionamiento de este programa es muy simple; se limita a 
cambiar todas las posiciones de memoria de la VRAM 


500 REM Rayo 
1510 FOR I=1 TON 

1520 FSET (240,0):DRAW "C1163ZR16631"” 
1530 POKE 61498',2H1F:PRINT USRCO) 
1540 R=200:GOSUB 200 

1550 POKE 61498!,2£H14:PRINT USR(@) 
1566 PSET (240,0):DRAW "C1632R16631" 
1570 R=400:GOSUB 2090 

1580 NEXT I 

1590 RETURN 
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correspondientes a la tabla de colores e introducir en ellas el 
mismo valor, de forma que casi instantäneamente la rutina 
consigue que todos los colores de fondo pasen a azul oscuro y los 
correspondientes a primer término pasen a negro. No obstante 
puedes cambiar estos colores alterando la posición de memoria 
61498 que contiene el valor a introducir en las posiciones de 
memoria anteriores, como luego veremos. 


La línea 5010 pasa el control a esta rutina en código máquina, a 
continuación se imprime la luna en color amarillo colocando el 
sprite 4 en la posición oportuna. Por fin la línea 5030 introduce 
un nuevo retardo basado como antes en la subrutina 300. 


La subrutina Rayo produce un relámpago y dibuja un rayo cuatro 
veces seguidas —tantas como indique el parámetro N—. El rayo 
se consigue mediante la línea 1520, que dibuja una línea quebrada 
amarilla. A continuación la línea 1530 altera la posición de 
memoria que contiene los códigos de colores para la rutina en 
código máquina haciendo que el fondo pase a ser blanco —de 
código de color 上 一 (15 en hexadecimal) — y el primer término 
negro —de código de color 1 一 ; tras ésto se llama a la rutina en 
máquina. Después de un pequeño retardo la línea 1550 restablece 
los colores iniciales y la 1560 borra el rayo dibujándolo de nuevo 


en negro. 


FONDO AZUL OSCURO 
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PRIMER | 
TERMINO | 
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FONDO BLANCO 


LA SUBRUTINA EN CÓDIGO 
MÁQUINA SE ENCARGA 
DE CAMBIAR 
INSTANTANEAMENTE 
LOS COLORES DE 

LA PANTALLA 


PRIMER 
TERMINO 
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REM Murcielago 

IF M<5@ THEN XM=XM+2:G0TO 530 
M=M-15:G=M#3.14/183: XM=120+ INT (40*SIN(A)): 
YM=30+INT (25*COS (A) > 

PUT SFRITE 1, (XM,YM),13 

R=96:GOSUB 300:FUT SPRITE 1, (06,209) 

FUT SPRITE 2, (XM, YM), 13 

R=20:GOSUB 3002: PUT SPRITE 2,(0,209) 

RETURN 
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El movimiento de la bruja y el murciélago lo controlan las lineas 80 
a 130 del programa principal. La subrutina Murciélago —linea 
500— emplea la variable M para calcular la trayectoria entre las 
dos torres. Inicialmente vale 1300 —linea 80— y cada vez que se 
ejecuta esta subrutina se decrementa 15.unidades. Cuando M 
supera cierto valor la linea 520 calcula sus coordenadas, que 
corresponden a las de una elipse, y actualiza el valor de M. Si no 
lo supera, la línea 510 habrá modificado XM para que el 
murciélago siga a la bruja. La línea 530 coloca el sprite 1 
—murciélago con las alas abiertas— en dicha posición y tras un 
retardo la línea 540 lo borra de la pantalla haciendo que su 
posición vertical valga 209. A continuación se repite el mismo 
proceso con el murciélago con las alas cerradas —líneas 

550 y 560. 


1000 REM Bruja 

1010 YB=32+24x*SIN(XB*2x3. 14/254) 
1020 PUT SPRITE 3, (XB,YB),3 
1030 RETURN 


El movimiento de la bruja es más simple pues su coordenada 
horizontal es incrementada de dos en dos en la línea 90 y su 
coordenada vertical se calcula en la línea 1010 de forma que trace 
una sinusoide en la pantalla. La línea 1020 coloca el sprite 
correspondiente en su posición. Cuando la bruja llega al final de la 
pantalla, la línea 120 del programa principal lo detecta y la hace 
desaparecer. 


Para dibujar el fuego en la casa podríamos haber optado por 
definir el mismo sprite (llama) en diferentes planos y haber 
colocado estos sprites por toda la casa, teniendo en cuenta que 
no puede haber más de cuatro en la misma línea. No obstante se 
ha elegido un procedimiento más ingenioso, ya que con un sólo 
sprite podemos dar la sensación de que el fuego se extiende y la 
casa entera arde. 


En primer lugar la línea 5510 DIMensiona la matriz que va a 
contener las coordenadas x e y de cada llama (estas son tales que 


5506 REM Fuego 

3310 DIM F (2,6) 

5920 FOR G=i TC 4 

55306 READ X,Y:F(1,G)=X:F (2,G6)=Y 
5540 NEXT G 

5550 N=6 

55664 FOR T=1 TC 4 
5570 N=N+1 

5380 FOR D=1 TO 3 
559% FOR J=1 TON 
S690 FUT SPRITE Sa (P41, 3) 5 Pte), dl 
5610 FUT SPRITE 5, (0,209) 

3629 NEXT J:NEXT D:NEXT T 

5623 FOR Y= 8 TO 96 STEF 8:FOR X=56 TO 200 STEF 8 
56406 COLOR 1:FRESET (X,Y) :PRINT#1, °C" 

5659 NEXT X:NEXT Y 


a 


06000000 


el fuego parece salir de las ventanas). Las líneas 5520 a 5540 
rellenan dicha matriz con los datos de la línea 7080. A 
continuación, tres bucles anidados se encargan de animar la 
escena. El fuego se imprime en amarillo en las posiciones dadas 
por F(1,j) y F(2,j) en la línea 5600, y la línea 5610 lo borra; ésto se 
repite 30 veces, de forma que las llamas titilan. Según aumenta N, 


J va tomando distintos valores, lo que hace aparecer una nueva 
llama en otra ventana, hasta que el fuego alcanza la última. 


La casa se derrumba mediante el bucle 5630 a 5650, que imprime 
un rectángulo negro sobre la misma. 


© 


6606 REM Calavera 

étið COLOR 15 

60206 CIRCLE (123,40),36,15,0,3.1457:FSET (92,738): 
DRAW"M+20, 56R32M+20,-36"” 

60636 CIRCLE (112,40) ,8: CIRCLE (144,460),8 

606340 PSET(116,64) : DRAW "R4D8R4U4R4D4R4U4R4D4R4U4R4D4R4U 
8R4Di 264L 4U41 4D4L 4U441 4D41 41841 4D41 4H41:12” 

6050 FSET (126,399): DRAW "D16H9M+4,-12" 

6660 FSET (126,44):DRAW "Dis E4M-4,-12" 

4076 PAINT (128,5),15,15 

6680 R=3000: GOSUB 2300 

6676 CLOSE #1 

6106 RETURN 


68008 


La fantasmagórica calavera que se cierne sobre las ruinas de la 
casa se consigue mediante la subrutina Calavera. Gracias al 
macrolenguaje gráfico que posee el sistema MSX podemos crear 
cualquier figura con facilidad. Así, la línea 6020 dibuja el contorno. 
Este se compone de un semicírculo y tres líneas rectas que unen 
sus extremos; todo se dibuja en color blanco (15). La línea 6030 
dibuja los dos ojos y la 6040 la boca a base de una poligonal 
cerrada. Por último, las líneas 6050 y 6060 se encargan de trazar 
dos triángulos que simulan la nariz La sentencia PAINT (línea 
6070) elige un punto interior a la figura y pinta el interior de la 
misma de blanco. Tras un retardo, la línea 6090 cierra el fichero 
que abrimos al principio del programa, mediante una sentencia 


CLOSE. 


AS 


300 REM Retardo 
310 FOR K=1 TO R:NEXT 
3206 RETURN 


Unicamente queda analizar la subrutina Retardo que, como 
habíamos apuntado, se limita a contar de 1 a R, con lo que el 
tiempo que tardará en ejecutarse será proporcional al valor de 
esta variable. 


e AI 
$ y 


% 


IBAN 


REM oscuridad 

POKE 23761,1: RANDOMIZE USR 2376% 

PAFER @: INK 6: PRINT AT 3,35 "G":sAT 4,35 "H": 
REM (G)3 ch) 

FAUSE 106 

RETURN 


© © OC 


Para pasar de día a noche hay que cambiar algunos colores de la 
pantalla. El BASIC del Spectrum no lo permite, de ahí que haya 
que emplear el código máquina que habíamos introducido. El 
programa en código máquina se activa en la línea 5010; todos los 
pixels correspondientes a tinta se cambian a azul oscuro, y los 
correspondientes a papel a negro. RANDOMIZE USR significa 
“ejecuta el programa en código máquina” que comienza en la 
dirección de memoria indicada. La línea 5020 imprime la luna en 
color amarillo y, tras una pequeña pausa, la subrutina finaliza. 


El programa de control llama ahora a la subrutina rayo que 
comienza en la línea 1500. Una serie de instrucciones PLOT y 
DRAW dibujan una línea negra quebrada desde la esquina 
superior derecha de la pantalla. El rayo no se ve hasta que la línea 
1530 llama al programa en código máquina, que cambia los pixels 
del rayo a blanco (POKE 23761,7). El código máquina cambia el 
color de la luna, de ahí que la línea 1540 la imprima de nuevo en 
amarillo. Esto ocurre tan rápidamente que la luna parece no 


cambiar de color. Después de una pequeña pausa en la línea 1545 
la rutina en máquina vuelve a cambiar el color de la tinta a azul. 
La línea 1560 restablece la luna en amarillo y el rayo se borra 
imprimiéndolo de nuevo en negro. Tras una pequeña pausa se 
repite el bucle otras cuatro veces, ya que habíamos fijado la 
variable n a cinco. 


REM rayo 

FOR 1=1 TO nm 

INK 6: FLOT 755,176: DRAW -29,-4¢: DRAW 19,0: 
DRAW -29, -40 

POKE 23761,7: RANDOMIZE USR 23789 

INK 6: PRINT AT 3,35"6"30T 4,3 5H": REM (635 CH) 
FAUSE 5 

io POKS Tet, de 

INK 6: PRINT AT 2,33 

INK @2) PLOT 28,170; 

DRAW -29,-40 

FAUSE 1 

NEXT 1 

RETURN 
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REM murcielago 

IF m<150 THEN LET xm=xm+1: GO TO 526 

LET m=m-8: LET a=m#FI/18®: 

LET xm=16+INT (4.5*SIN (a)) 

LET ym=4+INT (3.5%C05 (a)) 

FAFER 0: INK 7: FRINT AT ym,xm3"R"* REM (R) 
FAUSE 3 
PRINT AT ym,xm; "S": REM (5) 

FAUSE = 

FRINT AT ym,xmi" ": REM esp 

RETURN 


Si analizas las lineas 90 a 130 del programa de control (que 
corresponden a un bucle FOR... NEXT), veräs que el murcielago 
y la bruja son animados simultäneamente. La subrutina 
murcielago, que comienza en la linea 500, emplea la variable m 
para calcular las coordenadas de la trayectoria eliptica que sigue 
el murcielago entre las dos torres. 


Sin embargo, antes de realizar ningún cálculo, la línea 510 estudia 
el valor de m. Si éste es menor que 150 el murciélago deja de dar 
vueltas y parece intentar cazar a la bruja. Si m no es menor que 
150, la subrutina salta a la línea 520, donde se emplean las 
funciones SENO y COSENO para dibujar el camino espiral. A 
continuación se imprime el murciélago batiendo sus alas 
alternando los caracteres R y S. 


La bruja se anima de distinta forma al murciélago mediante la 
subrutina que comienza en la línea 1000. Esta subrutina opera de 
la misma forma que la rutina que animaba el avión al comienzo 
del libro, mediante diferentes caracteres definidos por el usuario 
impresos consecutivamente en cada posición de carácter a través 
de la pantalla. 


Antes de imprimir cada grupo de caracteres correspondientes a la 
bruja se llama a la subrutina murciélago. De esta forma 
conseguimos que el movimiento de aquella sea mucho más suave, 
ya que mientras el murciélago se mueve un carácter la bruja sólo 
lo hace dos pixels. De no ser así el movimiento de la bruja sería 
mucho más brusco. 


10006 REM bruja 

1619 FAFER ð: INK 7 

1920 PRINT AT 1,55" IJ": GO SUB 566: REM esp, (I)a (3J) 
1838 PRINT AT 1,b:" EL": GO SUB 500: REM esp, (HK), (L) 
1046 PRINT AT 1,03" MN": GO SUB 500: REM esp, (M), (Nè 
1656 FRINT AT 1,b5" OP": REM esp, (0), (F), (Q) 

1060 RETURN 


55060 REM fuego 

3510 DIM £(2,4): INE 4: PAPER 6 

2920 FOR g=1 TO 6 

5930 READ yax? LET fti,g)=y: LET f(2,9)= 
5540 NEXT 9 

55950 LET n=® 


3566 FOR t=1 TO 4 

557% LET n=n+1 

5586 FOR d=1 TO 38 

55970 FOR j=1 TO n 

3600 PRINT AT £(1,5),f¢(2,j)5"T":s REM (t) 
5610 PRINT AT 4f(1,3),4(2,3)3" "2 REM espacio 
5620 NEXT j: NEXT d: NEXT t 

5630 FOR y=2 TO 11: FOR x=7 TO 23 

5640 PRINT AT y,x3" ": REM espacio 

5650 NEXT x: NEXT y 

5660 RETURN 


135060000060 


La animación de las llamas es bastante ingeniosa. Uno de los 
problemas es que el ordenador no puede tener más de un color 
de tinta y otro de papel en cada carácter. Para resolverlo haremos 
aparecer el fuego desde dentro del castillo, únicamente en las 
ventanas. 


La línea 5510 DIMensiona una matriz, que guardará las 
posiciones de cada carácter correspondiente a una llama (T); 
estas posiciones se ajustan a las coordenadas de las ventanas. Las 
líneas 5560 a 5620 son tres bucles FOR... NEXT anidados. En 
primer lugar se imprime la llama en amarillo en la posición f(1,1) 
cuando j es igual a uno en la línea 5600. La línea 5610 imprime un 
espacio sobre el fuego. Este proceso se repite 30 veces haciendo 
vacilar la llama. Según aumenta n, j toma un nuevo valor, y el 
proceso se repite en cada ventana hasta que las llamas alcanzan 
la última 


La casa se derrumba mediante dos bucles FOR... NEXT 
anidados en las líneas 5630 a 5650 que borran la casa con una 
serie de espacios en negro. 
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68960 REM calavera 
6610 INE € 
4920 FOR A 70, 439 STEP = 
6920 LET a=s*F1/180: LET x=4@*SIN (a) 
5040 LET y=4@xCOS (a): FLOT 127,135: DRAW x,y 
560590 LET xi=67: LET x2=80 
6066 FOR y=135 TO 87 STEP 一 ! 
6670 PLOT x1,y: DRAW x2,8: LET xi=x1+.23s LET x2=x2-.4 
6980 NEXT 
6070 FREER Os PRINT AT 65135" “SAT 4,173" "s 
REM esp, esp:esp,esp 
6160 FRINT AT 8,155" ": REM espacio,espacia 
6116 PRINT AT 16,145" ": REM espacio,espacio,espacio 
6126 FOR y=81 TO 169 STEP 8: FOR x=87 TO 147 STEF 8 
6130 IF FOINT (x,y)=1 THEN FAFER 6: 
INK INT (RND*(73)+1:2 FLASH 1: 
PRINT AT 22-y/8,x/8-13"6": FLASH ©: REM (6) 
NEXT x: NEXT y 
RETURN 


00000000 
00000000 


La fantasmagórica calavera que se cierne sobre la casa quemada 
se crea mediante la subrutina calavera. La parte superior es 

un semicírculo que se dibuja en color negro (INK 0) mediante el 
lazo que comienza en la línea 6020, de forma que no se ve en esta 
etapa. El resto de la cara se consigue mediante otro lazo en las 
líneas 6060 a 6080 que dibuja una serie de líneas horizontales que 
se van haciendo cada vez más estrechas según nos acercamos a 
las ruinas de la casa. 


La línea 6090 coloca los ojos con dos espacios en negro, y las 
líneas 6100 y 6110 hacen lo mismo con la nariz y la boca. 


Recuerda que hasta ahora la cara es invisible, ya que está 
coloreada de negro sobre el cielo del mismo color. Para conseguir 
un efecto intermitente emplearemos la función POINT que 
estudia ciertos pixels sobre el área de la calavera. Si el pixel 
corresponde a tinta —en otras palabras, si POINT devuelve el 
valor 1— entonces se imprime el carácter gráfico 6 en esa 
posición con un color aleatorio y de forma intermitente (FLASH 
1). La calavera parece emerger de las ruinas de la casa según el 
lazo la estudia desde la parte inferior hasta la más alta. 
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Almacena tus programas 

A continuaciön se da el listado completo del programa tanto para 
MSX como para Spectrum. Compruébalos si aún tienes 
problemas. El listado MSX contiene líneas que no aparecen en el 
libro (las que terminan en 5). Estas se han añadido para conseguir 
efectos especiales en la ejecución del programa. Hacen que éste 
sea más tétrico y no lo retardan. 


Listados de los programas 


REM Casa Encantada 
CLEAR 260,61482!' 
19 SCREEN 2,2:COLOR 1,3,1:CLS 
15 ON SFRITE GOSUE 80665: SPRITE ON 
20 GOSUB £5500:REM Inicializar 
3% GOSUB 2000: REM Fondo 
409 GOSUB 2500: REM Castillo 
30 GOSUB 4566:REM Arboles 
60 SOSUB 5900: REM Oscuridad 
78 N=4:GOSUB 1560: REM Rayo 
36 M=1300 
85 BEEP 
70 FOR XB=6 TO 254 STEF 2 
166 GOSUR 590: REM Murcielago 
110 GOSUB 190@:REM Bruja 
126 IF XB=254 THEN FUT SPRITE 7, 10, 269) 
130 NEXT XE 
146 N=4:GOSUB 15606: REM Rayo 
130 GOSUB 55900:REM Fuego 
156 GOSUB £6006: REM Calavera 
176 END 
300 REM Retardo 
216 FOR K=1 TO R:NEXT 

3204 RETURN 

506 REM Murcielago 

ois IF MSO THEN XM=XM+2:GOTO 530 

320 M=M-15:A=M#T,.14/183: XM=120+ INT (40*SIN(0)): 
YM=30+ INT (23*C0S(A)) 

320 PUT BPRITE 1, (XM, YM) „I 

39406 R=96: G0SUB 36@:FUT SFRITE 1, (6,209) 

S45 PLAY "T155L64S58M500016" 

300 PUT SPRITE 2, (XM, YM) ,13 

366 R=20:GOSUB 369: FUT SPRITE 2, (0,209) 

wow. FLAY E" 

578 RETURN 

000 REM Bruja 

1010 YB=324+ 24x*SIN(XBx2x 7%. 14/754) 

10620 PUT SPRITE 3, (AB, YE), 2 

isle RETURN 

¡500 REM Rayo 

1310 FOR f=) TON 

1326 FSET (240,6):DRAW *C11632R16631" 

15530 POKE 61498! , %xHIF:FRINT USR (0) 

1555 SOUND 9,6: SOUND 1,0: SOUND 2,6:50UND 7,9:SQUND 4,0: 
SOUND 3,0: SOUND 6,31: SOUND 7,7: SOUND 8,146: SOUND 9, 
16:SOUND 139,16: SOUND 11,6:SOUND 12,66: SOUND 13,0 

1340 R=209:60SUB 200 

1350 POKE 614983',2H14:PRINT USR (0) 

135660 PSET (240,0):DRAW "C1632R16631" 

1570 R=400: GOSUR 300 

1586 NEXT I 

1590 RETURN 

20060 REM Fondo 

2916 FOR R=1 TO 106 


Continuación MSX 


2020 
, 2030 
2946 
2050 
2060 


2070 


2030 
2090 
2100 
2119 
2129 


3020 
2030 
3046 
2050 
3050 
2070 
3080 


2090 
3100 
3500 
gr 
Sa 
3536 
3540 
S03 
35960 
4000 
4010 
4020 


4030 
4300 
4510 
4520 
4530 
4340 
4550 


45898 
4579 
4536 
900 
3010 
5020 
5030 
5940 
3300 
55109 


X=INT (RND(1)*255) :Y=136+INT {RND(1)*&66) 
FSET (X,Y), 1ENEXT 
OFEN "GRP: " AS +1: COLOR 5 
FOR Y= TO 126 STEP 8:FOR X=0 TO 248 STEF 8 
FRESET (X,Y):FRINT#1," F" 
NEXT X: NEXT Y 
I=16 
FOR F=63 TO @ STEP -2 
X=138*SIN(P/60) s Y=192-P:LINE (X,Y)-(X+I,Y),1 
1=1+1.3:NEXT 
RETURN 
REM Castillo 
x1=80:Y1=72: xX2=158: Y2=120:LAD=300: 
GOSUE 30606: REM Bloque frontal 
X1=64: Y1=40:X2=80: Y2=80:LAD=70: 
GOSUB 3@60:REM Torre izquierda 
X1=168: Yi=46: X2=184: Y2=80:LAD=70: 
GOSUB 3688: REM Torre derecha 
XS=76: YS=8:G0SUB 3599:REM Tejado izquierdo 
X5=186: YS=8:GOSUB 356@:REM Tejado derecho 
FOR Y=60 TO 72 
EINE (89, V)-— (147, Yin G 
NEXT 
X=68: Y=47:GQSUB 4009 
X=76:Y=67:GOSUB 4506 
x=182: Y=47:GOSUB 4099 
x=174: Y=67:GOSUB 40900 
X=96;Y=83:GOSUB 4600 
x=154: Y=83: GOSUB 40960 
FOR Y=104 TO 127: 1F Y<112 THEN 
LINE (232-W, Y)-(244+Y,Y),1: NEXT 
ELSE LINE (120,Y)-(136,Y),1:NEXT 
RETURN 
REM Bloque e l 
FOR Y=Yi TO Y2 STEF 8:FOR X=X1 TO X2 STEF 8 
COLOR 9:PRESET (X,V):PRINT #1, w 
NEXT X:NEXT Y 
FOR Y=Y1 TO Y2+7 STEP 2 
CINE (X1, YI (X27, V), t 
NEXT Y 
COLOR 1:FOR M=1 TO LAD 
A=INT (RND(1)*(X2-X1+7)+X1): 
B=INT (RND(1)#(Y2-Y1+7)+Y1):FSET (A,B),1 
NEXT M 
RETURN 
REM Segmento 
R=38 
FOR T=168 TO 200 STEP 2 
A=T*3.14/180: X=R*¥SIN(A) : Y=RXCOS (A) 
LINE (XS,YS)-(XS+X, YS-Y),6 
NEXT 
RETURN 
REM Ventana 
I=5 
FOR J=Y TO Y+17:1F J<Y+5 THEN 
LINE (X+1/2,3)-(X+6-1/2,3),1:1=1-1:NEXT 
ELSE LINE (X,J3)-(X+6,3),1: NEXT 
RETURN 
REM Arboles 
DIM A(21) 
FOR J=1 TO 21:READ N:A(J)=N: NEXT 
FOR J=i TO 21 
I=BASE (10)+A(J) 
VFOKE (1),0:VPOKE (1+1),1:VPOKE (I+32),32: . 


VFOKE (1+33),33:VPOKE (1+64),64: VPOKE (1+65),65 


NEXT J 

R=1000: GOSUB 300 
RETURN 

REM Oscuridad 

PRINT USR(®) 

PUT SPRITE 4, (16,6),1¢ 
R=1000: GOSUB 300 
RETURN 

REM Fuego 

DIM F(2,6) 


Continuación MSX 


3320 

5530 
5540 
3330 
3560 
3578 
3380 
35390 
3600 
3603 


FOR G=1 TO 4 

READ X,Y:F(1,6)=X:F (2,6)=Y 

NEXT G 

N=0 

FOR T=1 TO 4 

N=N+ 1 

FOR D=1 TO 30 

FOR J=1 TON 

PUT SPRITE SURG RS JW 11 

FOR W=i TO INT(RND(-TIME>)%30):NEXT W: 

Z=INT (RND (-TIME) #150) +2:SOUND 6,Z: SOUND 1,15: 
SOUND 4,5:SOUND 7,£B10110110:SOUND 8,16:50UND 12,2 
: SOUND 13,4 

PUT SPRITE 5, 10, 207) 

NEXT J:NEXT D:NEXT T 

FOR Y= 8 TO 96 STEF 8:FOR X=54 TO 298 STEF 8 
COLOR 1:PRESET {X,YI:FRINT#FIL,”E” 

NEXT X:NEXT Y 

REM Calavera 

COLOR 15 

CIRCLE 1128,40) „36,193; 0, 3.1359: PSET (92,39: 
DRAW"M+20, S6RS2M+29,-56&" 

CIRCLE (112,40) ,8:CIRCLE (144,460),8 
PSET(110,64) :DRAW "R4D8R4U4R4D4R4U4R4D4R4U4R4D4R4U 
8R4D1 2G4L 4U4L 4D4L 4U4L 4D4L 4U4L 4D4L 4H4U12" 
PSET (126,44): DRAW "D14H4M+4,-12" 

PSET (130,44):DRAW "Diá E4M-4,-12" 

PAINT (128,57,15,195 


5 BEEP:FLAY "T9I@SIMSG0901A4A8. AR244072C8.D1B16E8.A164 


8.A16A2" 

R=3000: GOSUB 300 

CLOSE +1 

RETURN 

REM Inicializar 

FOR I=61483!' TO 61508! 

READ N#:FOKE I, VAL (C"&H"+N$) : NEXT 

DEFUSR=41 483! 

FOR I=BASE (12) TO BASE (12)+15:READ N: 

VPOKE (1+4096),N: NEXT 

FOR I=BASE (12) TO BASE (12)+15:READ N: 

VFOEE (1+4352) . MENEXT 

FOR I=BASE(12) TO BASE(12)+15:READ N: 

VFOKE (1+45089),N: NEXT 

FOR I=BASE (14)+32 TO BASE (14)+191:READ N: 

VPOKE I, N:NEXT 

RETURN 

DATA DB,99,21,00,20,0E,979,ED,679,ED,61,21,00,00,3JE, 
14,03, 98,23, 7G, FE,18, 602,230, F®,C9: REM Cod. maquina 

DATA 16, 129, 73,49,16,99,48, 9, 128, 32, 74, 134, 164, 68, 

204, 30,5, 38, 178, 27,31, 15,3,3, 48, 96, 192,192, 194,244 
‚152,128.1,1,1,3,3,.7,31,51,192, 192, 192,128, 128,128 
5224, 252: KEM Arbol 

DATA @,4,9, 16,56, 125, 255, 63, 15,3,2,0,9,9,9,9,9,9,¢ 
, 8, 28, 196, 255, 252, 240, 192,64, 0,0,0,0, ad Murc. 1 

DATA o, 0,90,0,0,15,31, 63,63,63,26,24, 8,0,0,0,0,0,0s 

0,0,176, 248, 252, 292,252,88,24,16,9,2, + HH Mure. 2 

DATA 7,1,0,0,0,1,3,159,207,255,195,129,1,0,0,0,128 
.192,95,95,224,192,192,224, 240, 255, 192, 128,128,192 
19,0: REM Bruja 

DATA 3,14, 28,56, 122,120, 254, 255, 299,248, 248,95, 102 
gos Oly oy Oy 0,0, 0, 12850, 0, 128, 128, 4, O54, 12,152,248, 

249: REM Lunar 

DATA.O, ¿24325 S45 50,351,351, 127, 129, 226, 228, 100,55, 21 
23 740,8,17,17,49,119, 227, 167,167,191, 186, 169, 208, 

208,224, 224: REM Llama 

DATA 521,535, 546, 547, 550, 562, 565, 570, 5890, 592, 600, 

610,637, 640, 697,661,567 , 686,691,496, 700: 

REM lan elle 

DATA 177,48,169,64,149,84,91,84,71,64,63,48: 

REM Posicion llamas 

FOR R=85 TO 256 STEP 155FOR T=1 TO 166 STEF 20: 
FOR A=1 TO T+15 STEP -15:50UND @,R-T:SOUND 1,0: 

SOUND 7,254: SOUND 8,16: SOUND 12,5:SOUND 13,1: 

NEXT A:NEXT T:NEXT R:SPRITE OFF: BEEP: RETURN 


SPECTRUM 
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20 
30 
460 
50 
60 
70 
30 
98 
100 
110 
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140 
150 
160 
170 
500 
310 


320 


330 
329 
340 
545 
350 
560 
1000 
1619 
1070 
1930 
1046 
1050 
1065 
1506 
1510 
1520 
1395 
1540 
1545 
155 
15660 
1570 


1575 
1580 
1590 
2000 
2310 
2020 
TOTO 
2040 
20650 
2060 
2070 
20809 
2070 
2100 
2110 
2120 


REM sn 8 

REM casa encantada 

REM 18 bytes de codigo maquina almacenados en la 
linea 5 

GO SUB 8599: REM inicializar 

GO SUB 20606: REM fondo 

GO SUB 25002 REM castillo 

GO SUB 4500: REM arboles 

GO SUB 5066: REM oscuridad 

LET n=5: GO SUB 1598: FEM rayo 

LET m=1300 

FOR b=6 TO 29 

GO SUE 526: REM murcielago 

GO SUB 1666: REM bruja 


IF b=292: THEN PRINT AT 1,295" "2 REM =sp,esp,esp 


NEXT b 

LET n=S: GO SUB 1506: REM rayo 

GO SUB 5500: REM fuego 

GO SUB 8966: REM calavera 

SIBE E 

REM murcielago 

IF m<150 THEN LET xm=xm+1: GO 

LET m=m-8: LET a=m*FI/1i89: 

LET xm=16+INT (4.5*SIN (a)) 

LET ym=4+INT (3.5*COS (a)) 

PAPER 05 FNE 7: FRINI AT ym,xm3"R":* REM (R) 
FAUSE 3 

PRINT AT ym,xm3"S"2z REM (5) 

FAUSE 3 

FRINT AT ym,xmi" ": REM esp 

RETURN 
REM bruja 
FAFER ø: 
PRINT AT 
FRINT AT 
FRINT AT 
FRINT AT 
RETURN 
REM rayo 
FOR i=1 TO n 

INK ©: FLOT 255,170: DRAW -29,-46: DRAW 10,0: 
DRAW -29,-40 

POKE 22761,7: RANDOMIZE USR 23760 

INE 6: PRIN? AT 3,355 "6°s0! 4,3 sr = REM (6); (H) 
FAUSE 5 

POKE 23761,1: RANDOMIZE USR 22760 

INE ó: PRINT AT 3,233 "G°3AT 4,55 HL REM (695 (H) 
INE ©: FLOT 255,170: DRAW —-29,-46: DRAW 19,0: 
DRAW -297,-49 

FAUSE 1 

NEXT 1 

RETURN 

REM fondo 

PAPER 4: INK 6: CLS 

FOR r=i TO 100 

LET x=INT (RND#255): LET y=INT (RND*80): FLOT x,y 
NEAT r: FAFER 5 

FOR y=@ TO 12: FOR x=0 TO 31 

PRINT AT y,x3” "=: REM espacio 

NEXT x: NEXT y 

INE © 

FLOT @, 72: DRAW 255,08: LET 1=4 

FOR p=39 TO © STEF -2 

PLOT iS@*SIN (p/30),p: DRAW i,9: 

NEXT p 

RETURN 

REM castillo 

LET “i=1@: LET «2=21s LET yli=10: LET ye-=161 

LET lad=406: GO SUB 3600: FEM bloque frontal 

LET x1=8: LET x2=16: LET yi=6: LET y2=11: 

LET lad=106: GO SUB REM blogue torre izda. 
LET »1=21: LET 22-295 LET yi=6: LET y2ell: 

LET lad=160: GO SUB 20606: REM bloque torre dcha. - 


Pd 
Coro = 


- 


IJ“: GO SUB 500 
KL": 60 SUB 500 
19) 


: REM wen, (I), (J) 

: REM esp, (K); (L) 
MN": GO SUB 500: REM esp, (M), (N> 
OPO”: REM esp, (0), IF} a +00 


‘a 
sae sae 
- 


pa pb be o ey 


‘a su u 
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LEI »NS=77: LET ys=139: 
SO SUB 3500: REM segmento tejado torre izda. 
LET xs=179: LET ys=159: 
GO SUB 3500: REM segmento tejado torre dcha. 
FOR r=88 TO 1023 
PLOT 88,5 DRAW 77,0 
MEAT r 
FOR b=12 TO 28 STEP 2: 
PRINT AY 11,55 "8": NEXT Br REM (E? 
LEI »=68: LET y=182: GO SUB 460606 
LET x=76: LET y=88: GO SUB 4000 
LET x=182: LET y=i102: GO SUB 4006 
LET x=174: LET y=88: GO SUB 46060 
LET x=96: LET y=56: 60 SUB 4606 
26508 LET x157: LET y=56: 6D SUB 4000 
TOOG FRINT AT 1l3,130”88 sA1 18,105 "88": 
REM (5), BI 19), (8) 
2670 RETURN 
3000 REM bloque 
sam FOR yayz TO y1 STEP —1: FOR x=x1 TO x2 
3020 FAFER 2: PRINT AT y,x3" ": REM espacio 
ZOSO NEXT He NEXT y 
BAD LET xi=xixž8: LET x2=x2%8: LET yi=yi*8: 
030 FOR y=y2 TO-y1 STEP -2 
3050 INK @: PLOT x1,168-y:3 DRAW (x2-x13+7,0 
Z070 NEXT y 
2080 FOR m=1 TO lad 
2690 LET a=INT (RND#(x2=x147)+x l): 
LET b=168-INT (RND*(y2-y1)+y1): PLOT a,b 
31060 NEXT m 
2110 RETURN 
32900 REM segmento 
2010 LET r=29: INK 3 
35920 FOR t=166 TO 200 
2536 LET a=txP1/186: LET x=r*SIN (a): LET y=r*COS (a) 
3540 FLOT xs,ys: DRAW x,y 
33990 NEXT È 


2560 FETURN 
4000 REM ventana 


40168 INE ©: FOR w=y TO y+10: FLOT »,w: DRAW 23,0 
4611 NEXT w 
4020 RETURN 
43600 REM arboles 
4510 FAFER 4: INK @: OVER 1 
45290 FOR t=1 TO 36 
4936 LET x=INT (RND*293: LET y=13+INT  (RND*7> 
545 IF (828 AND <22 AND 179% THEN GO TO 4530 
43500 FRINT AT y,»3"AB"3A7 y+1,x3 "CIAT yr r24% BETI 
REM 18), es (C); (DS te), (F) 
4566 NEXT t 
4576 OVER 8: FAUSE 200 
586 RETURN 
506060 REM oscuridad 
20160 FOKE 23761,1:2 RANDOMIZE USR 2376808 
5020 PAPER Oy INK é: PRINT AT 3,5 "3 AT 4,35 "HH": 
REM (G); (H) i 
5030 FAUSE 100 
"59645 RETURN 
5500 REM fuego 
sole DIM #12,2):2 INE 6: FAFER € 
„0208 FOR g=1 TO 6 
ara R ct LET Fergo =y: LET £12.07 =% 
554% 


53556 


aj | 
ee, 
nn 
370 
5200 FRINT AT A i Padla I es Bee (CE) 
mole PRINT AT Fi, il, FiS? "Ss REM espacio 
3620 NEXT 3+ NEXT ds NEXT € 
5630 FOR y=2 TO 11: FOR x=7 TƏ 23 
5640 PRINT AT y,x3" "s REM espacio 
5650 NEXT x: NEXT y 
5660 RETURN 
6000 REM calavera 
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6010 
6020 
6930 
5040 
4650 
6066 
5970 
6988 
L970 


6100 
6119 
6120 
6130 


-6140 
6150 
6500 
65192 


52 
a 


65290 
6549 
7909 
7010 
7020 
7030 
7040 
7950 
7060 
7979 
7030 
7070 
7100 
7110 
7120 
7139 
7140 
7150 
716% 
7170 
7180 
7190 
7300 
7510 
7520 
7330 
7540 


INK 0 

FÜR s=270 TO 450 STEP 2 

LET a=s*F1/180: LET *=40*SIN (a) 
LET y=40%COS (a): FLOT 177,125: 
NEXT s: LET x1=87: LET x2=806 
FOR y=133 TO 87 STEF 一 ! 

PLOT xi,y: DRAW x2,02 LET x1=x1+.3: LET x2=x2-.4 
NEXT y 

PAPER ©: PRINTS” "¡AT 6,173" 

REM esp, esp;esp,esp 

FRINT AT 8,155" “: REM espacio,especio 

PRINT AT 10,143” ": REM espacio,espacio, espacio 
FOR y=81 TO 169 STEP 8: FOR x=87 TO 167 STEF 8 
IF FOINT (x,y)=1 THEN FAFER 6: 

INE INT (RND*(7))+1i: FLASH 1: 
PRINCESS FLASH ©: REM (6) 

NEXT xc WEXT y 

RETURN 

REM inicializar 

FOR a=65368 TC 65527: READ d: POKE a,d: NEXT a 
REM introducir codigo maquina en la sentencia 
REM de la linea 5 

FOR 1=2376@ TO 22777: READ d: FOKE i,d: NEXT i 
RETURN 

DATA 16,129,773,40,15,80,48,79: REM arbol (A) 

DATA 128,52,74,134,164,68,204,30: REM arbol (E) 
DATA 5,38, id. 22 REM arbol (C) 


DRAW x,y 


DATA 48,946,192, 192,194, 244,152,128: REM arbol (D) 


DATA 1,1,1,3, 3, W202 BEM arbol (E) 

DATA 192,192, 192, 128,123, 128, 224,252: REM arbol tF) 
DATA 8,16,48, 32,76, 26,5, 233,224: REM luna (6) 
DATA 246,254,127,1173,48,54,31,6: REM luna (H) 
DANA 1,2;6, 2359,19, 255,17,226: REM bruja tr) 
DATA 0,060,060, 128,240,178,0,0: REM bruja (J) 
DATA 9,90,1,57,4,31,4,56: REM bruja (K) 

DATA 64,128, 128,150, 252,224, 64,128: REM bruja (L) 
DATA 06,0,0,14,1,7,1,14: REM bruja (M) i 
DATA 16,32, 96, 104, 63,248, 16,32: REM bruja {N} 
DATA 0,9,0,3,0,1,0,3: REM bruja (0) 

DATA 4,8, 24,154, 79, 254,68,136: FEM bruja (PF) 
DATA 2,0,9,0,172,0,2,0: REM bruja (@) 

DATA 9,9,9,66,36,24,24,9: REM murcielago (R) 
DATA 0,0,0,0,0,2559,24,6: REM murcielago (5) 
DATA 8,128,65,2,150,68,40,40: REM llamas (T) 
REM datos codigo maquina 

DATA 62,0,33,0,88,6,24,197,6,32 

DATA 119, 353,16, 232, 193, 1626201 

REM datos posicion ventanas 

DATA 10,22,8,23,14,19,14,12,19,9,8,8 
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